home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / ADDPHONE.T < prev    next >
Text File  |  1991-02-16  |  4KB  |  62 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  if r nolog close
  6.  lput "\E[0m\E[2J\E[37;44mCreate New Phone Directory Entry\E[0m\r\n"
  7. addname:
  8.  set s1 "" while "%s1<3||%s1>6||Cs1||Js1,/.~ ;,@*?+\\#.<>|^{}[]" acceptl s1 "New name for CALL(3-6 chars): "
  9.  ife !%s1 goback addname;p?0 find "\n%s1" %phones;if ? lput "%s1 already exists.\r\n"; goback addname
  10.  lput "\r\nUse '\045l-' rather than '1-'  as the dialing prefix for numbers outside of  your"
  11.  lput "\r\narea code.  This is a percent sign followed by a lowercase letter 'L', and not"
  12.  lput "\r\nthe digit '1'.  Use '\045m-'  for  long distance numbers within  your  area code."
  13.  lput "\r\nIf more than one number is to be called for this entry, separate the telephone"
  14.  lput "\r\nnumbers with plus signs(+).\r\n"
  15.  lput "\r\nBy convention, a BBS with an error correcting modem will pause  for  6  to  12"
  16.  lput "\r\nseconds before the first characters from the BBS appear, awaiting MNP or  V.42"
  17.  lput "\r\nlink requests.  Requesting error correction when the modem being  called  does"
  18.  lput "\r\nnot have error correction available will cause most  forms  of  bulletin board"
  19.  lput "\r\nsoftware to malfunction.  Modems  with speeds of 9600bps or more can safely be"
  20.  lput "\r\nassumed to be capable of accepting a request for an error correcting link.  If"
  21.  lput "\r\na 9600bps connection occurred,  or  if there was a 6 to 12 second  pause  when"
  22.  lput "\r\nfirst connecting, indicate that the telephone number is MNP or V.42 capable by"
  23.  lput "\r\nadding '.m' after the phone number(e.g. '\045l-914-297-3008.m+\045l-914-297-0665.m')."
  24.  lput "\r\nThe '.m' has no effect unless you have an error correcting modem.\r\n"
  25.  lput "\r\nAn 'h' in addition to '.m' requests that, if you have a USR Dual Standard Modem,"
  26.  lput "\r\nit is to accept HST mode but not V32 connection(e.g. '\045l-914-564-3342.mh'). This"
  27.  lput "\r\nwill provide 14400bps rather than 9600bps when caller and callee  are  both  USR"
  28.  lput "\r\nDual Standard Modems but one or the other does not support V32bis.  The  'h' has"
  29.  lput "\r\nno effect unless you have a USR Dual Standard Modem.\r\n\n"
  30.  set s2 "";while "!%s2||Cs2||ps2,1-" accept s2 "Telephone Number: "
  31. addparity:
  32.  lput "\r\nParity:\r\n\n 0 - Mark\r\n 1 - Space\r\n 2 - Odd\r\n 3 - Even"
  33.  lput "\r\n 4 - None (Required for IBM Graphics)\r\n\r\n"
  34.  acceptl1 s0 "Choose one of the above: "
  35.  ife is0,0 set s3 7m goto addeparity;ife is0,1 set s3 7s goto addeparity
  36.  ife is0,2 set s3 7o goto addeparity;ife is0,3 set s3 7e goto addeparity
  37.  ife !is0,4 goback addparity
  38.  lput \r\n while !Js0,yn acceptl1 s0 "IBM Graphics(y/n)? "
  39.  ife is0,y set s3 8g;set s0 4;else set s3 8n
  40. addeparity:
  41. addboard:
  42.  lput "\r\nEnter Type:\r\n"
  43.  lput "\r\nPCBoard, RBBS, Wildcat, ForumPC, Genesis, Opus, Magpie, Rain, RRyder, SLBBS,"
  44.  lput "\r\nModulex, Odyssey, Unknown, TurboLearn\r\n\n"
  45.  set z0 0 set s4 , set s5 "" set s6 "" set s0
  46. ,pcboard,rbbs,wildcat,forumpc,genesis,opus,magpie,rain,rryder,slbbs,modulex,odyssey,unknown,turbolearn,
  47.  while "!%s4||Cs4||Js4,," acceptl s4 "Board Type: "
  48.  obey "set? z0 \042js0,,%s4,\042";if iz0,0 goback addboard
  49.  ife is4,modulex set s4 odyssey goto okb;if is4,turbolearn set s4 tlearn goto okb
  50.  if !is4,wildcat goto okb
  51. wct:
  52.  lput "\r\nAreas to which Files may be Uploaded:\r\n\n"
  53. wctarea:
  54.  set z1 "~" while "%z1&&!Jz1,abcdefghijklmnopqrstuvwxyz" acceptl1 z1 "File area: A-Z, (Enter)=done: "
  55.  ife !%z1 lput \r\n goto okb;set z2 "";while "%z2<3||%z2>8||Jz2,,;~" acceptl z2 "Short Description (3-8 chars): "
  56.  set z0 "~";ife %s6 set z0 ",";sets s6 "%s6%z0%z1:%z2" goback wctarea
  57. okb:
  58.  set s5 "";while "!%s5||Cs5||Js5,~" accept s5 "\r\nName of BBS: "
  59.  kill; pv0; create -+ %phones
  60.  echof "%s1 ena -%s3 %s2 ife c gosub .\045lib/%s4.t;return \T:~%s5%s6"
  61.  ife r nolog close;echo "Entry Created";return
  62.